home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
DELPHI32
/
DEBUG
/
BPTRAP10
/
TRAPDEMO.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1996-02-29
|
2KB
|
46 lines
PROGRAM TrapDemo;
{ Demo program for BPTrap unit, Version 1.0
Copyright (C) 1996 by Frank Heckenbach, heckenb@mi.uni-erlangen.de
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, version 1, for NON-COMMERCIAL use.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. }
{$C FIXED PRELOAD PERMANENT} {Not necessary for real mode.}
USES BPTrap{$IFDEF WINDOWS},Wincrt{$ENDIF};
VAR a,b:Byte;
BEGIN
Writeln;
Writeln('TrapDemo version 1.0, Copyright (C) 1996 by Frank Heckenbach');
Writeln('TrapBP and TrapDemo come with ABSOLUTELY NO WARRANTY.');
Writeln('This is free software, and you are welcome to redistribute it');
Writeln('under certain conditions for NON-COMMERCIAL use.');
Writeln('For details see the file COPYING.');
Writeln;
Writeln('Before the trap...');
Writeln;
Randomize;
IF NOT Trap THEN
REPEAT
a:=Random(10);
b:=Random(10);
Writeln(a,'/',b,'=',a/b)
UNTIL False;
Writeln('Infinity.');
Write('Press Enter.');
Readln;
Write('The program caused a... ')
END.